From: Andreas Schwab Date: Sun, 12 Jan 2003 20:50:32 +0000 (+0000) Subject: (solitaire-mode-map): Use command remapping instead of X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28879 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9ac43c90fd3a0fe2a09469ee7668f642e9e4568a;p=emacs.git (solitaire-mode-map): Use command remapping instead of substitute-key-definition. --- diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index 34e88b739f2..da144683b0a 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el @@ -1,6 +1,6 @@ ;;; solitaire.el --- game of solitaire in Emacs Lisp -;; Copyright (C) 1994 Free Software Foundation, Inc. +;; Copyright (C) 1994, 2003 Free Software Foundation, Inc. ;; Author: Jan Schormann ;; Created: Fri afternoon, Jun 3, 1994 @@ -55,8 +55,7 @@ (define-key solitaire-mode-map "\C-p" 'solitaire-up) (define-key solitaire-mode-map "\C-n" 'solitaire-down) (define-key solitaire-mode-map [return] 'solitaire-move) - (substitute-key-definition 'undo 'solitaire-undo - solitaire-mode-map global-map) + (define-key solitaire-mode-map [remap undo] 'solitaire-undo) (define-key solitaire-mode-map " " 'solitaire-do-check) (define-key solitaire-mode-map "q" 'quit-window)